|
1200
|
Is it possible to display the task bars with a gradient color
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #12/31/2009#
.LevelCount = 2
.set_PaneWidth(False,96)
.Bars.Copy("Task","TaskO")
With .Bars.Item("Task")
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternGradientVBox Or exontrol.EXG2ANTTLib.PatternEnum.exPatternBox Or exontrol.EXG2ANTTLib.PatternEnum.exPatternShadow
.StartColor = Color.FromArgb(255,255,255)
.EndColor = .Color
End With
End With
.Columns.Add("Types")
With .Items
.AddBar(.AddItem("Original"),"TaskO",#1/4/2010#,#1/9/2010#,"")
.AddBar(.AddItem("Pattern Gradient"),"Task",#1/4/2010#,#1/9/2010#,"")
.AddBar(.AddItem("Original"),"TaskO",#1/4/2010#,#1/9/2010#,"")
End With
.EndUpdate()
End With
|
|
1199
|
How can I know the type of bars I can displays using predefined patterns
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #12/31/2009#
.LevelCount = 2
.set_PaneWidth(False,96)
With .Bars
.Add("Box").Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBox
.Add("ThickBox").Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternThickBox Or exontrol.EXG2ANTTLib.PatternEnum.exPatternBox
.Add("DiagBox").Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternThickBox Or exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.Copy("Task","Shadow").Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternFrameShadow Or exontrol.EXG2ANTTLib.PatternEnum.exPatternShadow
.Copy("Task","TShadow").Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternFrameShadow Or exontrol.EXG2ANTTLib.PatternEnum.exPatternThickBox Or exontrol.EXG2ANTTLib.PatternEnum.exPatternDiagCross
With .Add("HGrad1")
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBox
.StartColor = Color.FromArgb(255,255,255)
.EndColor = Color.FromArgb(0,0,255)
End With
With .Add("HGrad2")
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBox Or exontrol.EXG2ANTTLib.PatternEnum.exPatternShadow
.StartColor = Color.FromArgb(255,255,255)
.EndColor = Color.FromArgb(0,0,255)
.Color = Color.FromArgb(0,0,255)
End With
With .Add("HGrad3")
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternGradient3Colors Or exontrol.EXG2ANTTLib.PatternEnum.exPatternBox Or exontrol.EXG2ANTTLib.PatternEnum.exPatternShadow
.StartColor = Color.FromArgb(255,255,255)
.EndColor = .StartColor
.Color = Color.FromArgb(0,0,255)
End With
With .Add("HGrad4")
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternThickBox Or exontrol.EXG2ANTTLib.PatternEnum.exPatternGradient3Colors Or exontrol.EXG2ANTTLib.PatternEnum.exPatternBox
.StartColor = Color.FromArgb(255,255,255)
.EndColor = .StartColor
.Color = Color.FromArgb(0,0,255)
End With
With .Add("HGrad5")
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternFrameShadow Or exontrol.EXG2ANTTLib.PatternEnum.exPatternGradient3Colors Or exontrol.EXG2ANTTLib.PatternEnum.exPatternBox
.StartColor = Color.FromArgb(0,255,0)
.EndColor = Color.FromArgb(255,0,0)
.Color = Color.FromArgb(0,0,255)
End With
With .Add("VGrad1")
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternGradientVBox Or exontrol.EXG2ANTTLib.PatternEnum.exPatternBox
.StartColor = Color.FromArgb(255,255,255)
.EndColor = Color.FromArgb(0,0,255)
.Height = 14
End With
With .Add("VGrad2")
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternGradientVBox Or exontrol.EXG2ANTTLib.PatternEnum.exPatternBox Or exontrol.EXG2ANTTLib.PatternEnum.exPatternShadow
.StartColor = Color.FromArgb(255,255,255)
.EndColor = Color.FromArgb(0,0,255)
.Color = Color.FromArgb(0,0,255)
.Height = 14
End With
With .Add("VGrad3")
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternGradient3Colors Or exontrol.EXG2ANTTLib.PatternEnum.exPatternGradientVBox Or exontrol.EXG2ANTTLib.PatternEnum.exPatternBox Or exontrol.EXG2ANTTLib.PatternEnum.exPatternShadow
.StartColor = Color.FromArgb(255,255,255)
.EndColor = .StartColor
.Color = Color.FromArgb(0,0,255)
.Height = 14
End With
With .Add("VGrad4")
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternThickBox Or exontrol.EXG2ANTTLib.PatternEnum.exPatternGradient3Colors Or exontrol.EXG2ANTTLib.PatternEnum.exPatternGradientVBox Or exontrol.EXG2ANTTLib.PatternEnum.exPatternBox
.StartColor = Color.FromArgb(255,255,255)
.EndColor = .StartColor
.Color = Color.FromArgb(0,0,255)
.Height = -1
End With
With .Add("VGrad5")
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternFrameShadow Or exontrol.EXG2ANTTLib.PatternEnum.exPatternGradient3Colors Or exontrol.EXG2ANTTLib.PatternEnum.exPatternGradientVBox Or exontrol.EXG2ANTTLib.PatternEnum.exPatternBox
.StartColor = Color.FromArgb(0,255,0)
.EndColor = Color.FromArgb(255,0,0)
.Color = Color.FromArgb(0,0,255)
.Height = 14
End With
End With
End With
.Columns.Add("Types")
With .Items
.AddBar(.AddItem("Box"),"Box",#1/4/2010#,#1/9/2010#,"")
.AddBar(.AddItem("Thick Box"),"ThickBox",#1/4/2010#,#1/9/2010#,"")
.AddBar(.AddItem("Thick Box Diag"),"DiagBox",#1/4/2010#,#1/9/2010#,"")
.AddBar(.AddItem("Shadow"),"Shadow",#1/4/2010#,#1/9/2010#,"")
.AddBar(.AddItem("Thick Shadow"),"TShadow",#1/4/2010#,#1/9/2010#,"")
.AddBar(.AddItem("Solid Gradient"),"HGrad1",#1/4/2010#,#1/9/2010#,"")
.AddBar(.AddItem("Pattern Gradient"),"HGrad2",#1/4/2010#,#1/9/2010#,"")
.AddBar(.AddItem("Pattern Gradient 3 Colors"),"HGrad3",#1/4/2010#,#1/9/2010#,"")
.AddBar(.AddItem("Solid Gradient 3 Colors"),"HGrad4",#1/4/2010#,#1/9/2010#,"")
.AddBar(.AddItem("Gradient Shadow"),"HGrad5",#1/4/2010#,#1/9/2010#,"")
.AddBar(.AddItem("Solid Gradient"),"VGrad1",#1/4/2010#,#1/9/2010#,"")
.AddBar(.AddItem("Pattern Gradient"),"VGrad2",#1/4/2010#,#1/9/2010#,"")
.AddBar(.AddItem("Pattern Gradient 3 Colors"),"VGrad3",#1/4/2010#,#1/9/2010#,"")
.AddBar(.AddItem("Solid Gradient 3 Colors"),"VGrad4",#1/4/2010#,#1/9/2010#,"")
.AddBar(.AddItem("Gradient Shadow"),"VGrad5",#1/4/2010#,#1/9/2010#,"")
End With
.EndUpdate()
End With
|
|
1198
|
Is it possible to display the bars with a thicker border
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_PaneWidth(False,48)
.Chart.Bars.Copy("Task","TaskB").Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternThickBox Or exontrol.EXG2ANTTLib.PatternEnum.exPatternShadow
With .Items
.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/5/2001#,"")
.AddBar(.AddItem("Task 2"),"TaskB",#1/2/2001#,#1/5/2001#,"")
.AddBar(.AddItem("Task 3"),"Task",#1/2/2001#,#1/5/2001#,"")
End With
.EndUpdate()
End With
|
|
1197
|
Is it possible to display the shadow for EBN bars
With Exg2antt1
.BeginUpdate()
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_PaneWidth(False,48)
With .Chart.Bars.Copy("Task","EBN")
.Color32 = &H1000000
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternFrameShadow
End With
.Chart.Bars.Copy("Task","EBN2").Color32 = &H1000000
With .Items
.AddBar(.AddItem("Task 1"),"EBN2",#1/2/2001#,#1/5/2001#,"")
.AddBar(.AddItem("Task 2"),"EBN",#1/2/2001#,#1/5/2001#,"")
.AddBar(.AddItem("Task 3"),"EBN2",#1/2/2001#,#1/5/2001#,"")
End With
.EndUpdate()
End With
|
|
1196
|
Can I display a shadow for my bars
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_PaneWidth(False,48)
.Chart.Bars.Item("Task").Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternFrameShadow Or exontrol.EXG2ANTTLib.PatternEnum.exPatternShadow
With .Items
.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/5/2001#,"")
.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/5/2001#,"")
End With
.EndUpdate()
End With
|
|
1195
|
How can I use the Color property for gradient bars
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.set_PaneWidth(False,48)
With .Chart.Bars.Add("V")
.Color = Color.FromArgb(255,0,0)
.StartColor = Color.FromArgb(0,255,0)
.EndColor = .StartColor
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternGradient3Colors Or exontrol.EXG2ANTTLib.PatternEnum.exPatternGradientVBox Or exontrol.EXG2ANTTLib.PatternEnum.exPatternBox
.Height = -1
End With
With .Chart.Bars.Add("H")
.Color = Color.FromArgb(255,0,0)
.StartColor = Color.FromArgb(0,255,0)
.EndColor = .StartColor
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternGradient3Colors Or exontrol.EXG2ANTTLib.PatternEnum.exPatternBox
End With
With .Items
.AddBar(.AddItem("Task 1"),"V",#1/2/2001#,#1/5/2001#,"")
.AddBar(.AddItem("Task 2"),"H",#1/2/2001#,#1/5/2001#,"")
End With
.EndUpdate()
End With
|
|
1194
|
Is there any option to show bars with vertical gradient
Dim h
With Exg2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
With .Chart.Bars.Item("Task")
.Color = Color.FromArgb(255,0,0)
.StartColor = Color.FromArgb(0,255,0)
.EndColor = Color.FromArgb(255,255,0)
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternGradientVBox Or exontrol.EXG2ANTTLib.PatternEnum.exPatternBox
End With
With .Items
h = .AddItem("Task")
.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"")
End With
End With
|
|
1193
|
How can I define a new milestone bar
With Exg2antt1
.BeginUpdate()
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.Chart.FirstVisibleDate = #1/1/2001#
With .Chart.Bars
.AddShapeCorner(12345,1)
.AddShapeCorner(12346,2)
.Copy("Milestone","M1").StartShape = &H3020 Or exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconVBar Or exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconRight
.Copy("Milestone","M2").StartShape = &H3020 Or exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconSquare Or exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconRight
With .Copy("Milestone","MP")
.StartShape = exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconStar
.StartColor = Color.FromArgb(255,0,0)
End With
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Default"),"Milestone",#1/2/2001#,#1/2/2001#)
.AddBar(.AddItem("Predefined"),"MP",#1/3/2001#,#1/3/2001#)
.AddBar(.AddItem("Custom 1"),"M1",#1/4/2001#,#1/4/2001#)
.AddBar(.AddItem("Custom 2"),"M2",#1/5/2001#,#1/5/2001#)
End With
.EndUpdate()
End With
|
|
1192
|
How can I define my milestone bar, using my icons or pictures
With Exg2antt1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.Chart.FirstVisibleDate = #1/1/2001#
With .Chart.Bars
.AddShapeCorner(12345,1)
.Item("Milestone").StartShape = &H3020 Or exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconVBar Or exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconRight
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Milestone",#1/2/2001#,#1/2/2001#)
End With
End With
|
|
1191
|
Is it possible to specify manually non-working days instead using the NonworkingDays as being repetitive
With Exg2antt1
.BeginUpdate()
With .Chart
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
.FirstVisibleDate = #1/1/2010#
.set_PaneWidth(False,0)
.LevelCount = 2
.get_Level(0).DrawGridLines = True
.ShowNonworkingUnits = False
.ShowNonworkingDates = False
.NonworkingDays = 0
.AddNonworkingDate(#1/10/2010#)
.AddNonworkingDate(#1/11/2010#)
.AddNonworkingDate(#1/15/2010#)
.AddNonworkingDate(#1/16/2010#)
End With
.EndUpdate()
End With
|
|
1190
|
Is it possible to hide specific days
With Exg2antt1
.BeginUpdate()
With .Chart
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
.FirstVisibleDate = #1/1/2010#
.set_PaneWidth(False,0)
.LevelCount = 2
.get_Level(0).DrawGridLines = True
.ShowNonworkingUnits = False
.ShowNonworkingDates = False
.NonworkingDays = 128
.AddNonworkingDate(#1/10/2010#)
.AddNonworkingDate(#1/11/2010#)
.AddNonworkingDate(#1/15/2010#)
.AddNonworkingDate(#1/16/2010#)
End With
.EndUpdate()
End With
|
|
1189
|
Is it possible to show or display the marked zones ONLY in the overview part of the control
Dim h1,h2
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.LevelCount = 2
.FirstVisibleDate = #1/14/2001#
.set_PaneWidth(False,48)
.AllowLinkBars = False
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exNoCreateBar
.OverviewVisible = exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.Bars.Item("Task").Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
.MarkTimeZone("Z1",#1/3/2001#,#1/4/2001#,.BackColor,";;Zone <b>1</b>")
.MarkTimeZone("Z2",#2/6/2001#,#2/7/2001#,.BackColor,";;Zone <b>2</b>")
.MarkTimeZone("Z3",#1/16/2001#,#1/19/2001#,.BackColor,";;Zone <b>3</b>")
.OverviewShowMarkTimeZones = True
.OverviewBackColor = Color.FromArgb(220,240,240)
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/2/2001#,#1/5/2001#,"K1")
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",#2/5/2001#,#2/8/2001#,"K2")
.AddLink("L1",h1,"K1",h2,"K2")
End With
.EndUpdate()
End With
|
|
1188
|
Is it possible to show or display the marked zones in the overview part of the control
Dim h1,h2
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.LevelCount = 2
.FirstVisibleDate = #1/14/2001#
.set_PaneWidth(False,48)
.AllowLinkBars = False
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exNoCreateBar
.OverviewVisible = exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.Bars.Item("Task").Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
.MarkTimeZone("Z1",#1/3/2001#,#1/4/2001#,16777056)
.MarkTimeZone("Z2",#2/6/2001#,#2/7/2001#,16744544)
.MarkTimeZone("Z3",#1/16/2001#,#1/19/2001#,16744544)
.OverviewShowMarkTimeZones = True
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/2/2001#,#1/5/2001#,"K1")
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",#2/5/2001#,#2/8/2001#,"K2")
.AddLink("L1",h1,"K1",h2,"K2")
End With
.EndUpdate()
End With
|
|
1187
|
Is there a quick way to determine if a bar belongs to a group
Dim h1,h2,h3
With Exg2antt1
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,64)
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",#1/5/2001#,#1/7/2001#,"K2")
h3 = .AddItem("Task 3")
.AddBar(h3,"Task",#1/5/2001#,#1/7/2001#,"K3")
.GroupBars(h1,"K1",True,h2,"K2",True)
.GroupBars(h1,"K1",False,h2,"K2",False)
.GroupBars(h1,"K1",True,h3,"K3",True)
.GroupBars(h1,"K1",False,h3,"K3",False)
Debug.Print( .get_ItemBar(h1,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarsGroup) )
End With
End With
|
|
1186
|
I am using the ScrollRange property to limit the chart's visible area, but it does not work as expected. What could be wrong
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.LevelCount = 2
.set_PaneWidth(False,56)
.set_ScrollRange(exontrol.EXG2ANTTLib.ScrollRangeEnum.exStartDate,#1/1/100#)
.set_ScrollRange(exontrol.EXG2ANTTLib.ScrollRangeEnum.exEndDate,#12/31/9999#)
.FirstVisibleDate = #4/28/2010#
End With
.set_ScrollPartCaption(exontrol.EXG2ANTTLib.ScrollBarEnum.exHChartScroll,exontrol.EXG2ANTTLib.ScrollPartEnum.exLowerBackPart,.Chart.get_ScrollRange(exontrol.EXG2ANTTLib.ScrollRangeEnum.exStartDate))
.set_ScrollPartCaptionAlignment(exontrol.EXG2ANTTLib.ScrollBarEnum.exHChartScroll,exontrol.EXG2ANTTLib.ScrollPartEnum.exLowerBackPart,exontrol.EXG2ANTTLib.AlignmentEnum.LeftAlignment)
.set_ScrollPartCaption(exontrol.EXG2ANTTLib.ScrollBarEnum.exHChartScroll,exontrol.EXG2ANTTLib.ScrollPartEnum.exUpperBackPart,.Chart.get_ScrollRange(exontrol.EXG2ANTTLib.ScrollRangeEnum.exEndDate))
.set_ScrollPartCaptionAlignment(exontrol.EXG2ANTTLib.ScrollBarEnum.exHChartScroll,exontrol.EXG2ANTTLib.ScrollPartEnum.exUpperBackPart,exontrol.EXG2ANTTLib.AlignmentEnum.RightAlignment)
.EndUpdate()
End With
|
|
1185
|
Are you planning to add a AddNonworkingDate / AddNonworkingDay for separate items
With Exg2antt1
.BeginUpdate()
.AllowChartScrollPage = True
.Columns.Add("Non-Work")
With .Chart
.FirstVisibleDate = #4/4/2009#
.set_PaneWidth(False,52)
.LevelCount = 2
End With
With .Items
.AddItem("Default")
.set_ItemNonworkingUnits(.AddItem("Test 1"),False,"shortdate(value) in (#4/5/2009#,#4/6/2009#)")
.set_ItemNonworkingUnits(.AddItem("Test 2"),False,"shortdate(value) in (#4/6/2009#,#4/7/2009#)")
.set_ItemNonworkingUnits(.AddItem("Test 3"),False,"shortdate(value) in (#4/7/2009#,#4/9/2009#)")
.AddItem("Default")
End With
.EndUpdate()
End With
|
|
1184
|
How can I enlarge the EBN being applied to an object
Dim h
With Exg2antt1
.BeginUpdate()
.DefaultItemHeight = 32
With .VisualAppearance
.Add(2,"c:\exontrol\images\normal.ebn")
.Add(1,"CP:2 -3 -2 3 2")
End With
With .Chart
.FirstVisibleDate = #1/1/2002#
.SelBarColor32 = &H1000000
.set_PaneWidth(False,48)
End With
.Columns.Add("Task")
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2002#,#1/4/2002#,"A")
.AddBar(h,"Task",#1/6/2002#,#1/10/2002#,"B")
.AddBar(h,"Task",#1/11/2002#,#1/14/2002#,"C")
.set_ItemBar(h,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
.set_ItemBar(h,"B",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
End With
.EndUpdate()
End With
|
|
1183
|
I am using EBN to display my bars but the bars shows in black in the overview area. Is there any option to specify a different color in the overview part of the control
Dim h
With Exg2antt1
.BeginUpdate()
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
With .Chart
.Bars.Item("Task").Color32 = &H1000000
.set_PaneWidth(False,48)
.OverviewVisible = exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.FirstVisibleDate = #1/11/2001#
.LevelCount = 2
End With
.Columns.Add("Column")
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,1)
.set_ItemBar(h,1,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarOverviewColor,8821418)
.AddBar(h,"Task",#2/2/2001#,#2/4/2001#,2)
.set_ItemBar(h,2,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarOverviewColor,8821418)
h = .AddItem("Task 2")
.AddBar(h,"Task",#2/2/2001#,#2/4/2001#,"")
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarOverviewColor,8821418)
End With
.EndUpdate()
End With
|
|
1182
|
I haven't found options to localize (in Italian) the strings ( dates, tooltip ) that shows in the chart area
With Exg2antt1
.BeginUpdate()
With .Chart
.LevelCount = 2
.set_PaneWidth(False,0)
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exWeek,"<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256")
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exDay,"<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exWeek,"<%d%> <%mmmm%> <%yyyy%> <%ww%>")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exDay,"<%dddd%> <%d%> <%mmmm%> <%yyyy%>")
.FirstWeekDay = exontrol.EXG2ANTTLib.WeekDayEnum.exMonday
.MonthNames = "gennaio febbraio marzo aprile maggio giugno luglio agosto settembre ottobre novembre dicembre"
.WeekDays = "domenica lunedì martedì mercoledì giovedì venerdì sabato"
.ToolTip = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exDay
End With
.EndUpdate()
End With
|
|
1181
|
I haven't found options to localize (in Dutch) the strings ( dates, tooltip ) that shows in the chart area
With Exg2antt1
.BeginUpdate()
With .Chart
.LevelCount = 2
.set_PaneWidth(False,0)
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exWeek,"<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256")
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exDay,"<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exWeek,"<%d%> <%mmmm%> <%yyyy%> <%ww%>")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exDay,"<%dddd%> <%d%> <%mmmm%> <%yyyy%>")
.FirstWeekDay = exontrol.EXG2ANTTLib.WeekDayEnum.exMonday
.MonthNames = "januari februari maart april mei juni juli augusts september oktober november december"
.WeekDays = "zondag maandag dinsdag woensdag donderdag vrijdag zaterdag"
.ToolTip = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exDay
End With
.EndUpdate()
End With
|
|
1180
|
I haven't found options to localize (in German) the strings ( dates, tooltip ) that shows in the chart area (method 1)
With Exg2antt1
.BeginUpdate()
With .Chart
.LevelCount = 2
.set_PaneWidth(False,0)
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exWeek,"<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%>.<%mmmm%> <%yyyy%><r><%ww%><||><||>256")
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exDay,"<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%>.<%m3%> '<%yy%><|><%dddd%> <%d%>.<%mmmm%> <%yyyy%><||><||>4096")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exWeek,"<%d%>.<%mmmm%> <%yyyy%> <%ww%>")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exDay,"<%dddd%>, <%d%>.<%mmmm%> <%yyyy%>")
.FirstWeekDay = exontrol.EXG2ANTTLib.WeekDayEnum.exMonday
.MonthNames = "Januar Februar März April Mai Juni Juli August September Oktober November Dezember"
.WeekDays = "Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag"
.ToolTip = "<%dddd%>,<%d%>.<%mmmm%> <%yyyy%>"
.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exDay
End With
.EndUpdate()
End With
|
|
1179
|
I haven't found options to localize (in French) the strings ( dates, tooltip ) that shows in the chart area
With Exg2antt1
.BeginUpdate()
With .Chart
.LevelCount = 2
.set_PaneWidth(False,0)
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exWeek,"<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256")
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exDay,"<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exWeek,"<%d%> <%mmmm%> <%yyyy%> <%ww%>")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exDay,"<%dddd%> <%d%> <%mmmm%> <%yyyy%>")
.FirstWeekDay = exontrol.EXG2ANTTLib.WeekDayEnum.exMonday
.MonthNames = "janvier février mars avril mai juin juillet août septembre octobre novembre décembre"
.WeekDays = "dimanche lundi mardi mercredi jeudi vendredi samedi"
.ToolTip = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exDay
End With
.EndUpdate()
End With
|
|
1178
|
How can I determine the last visible date in the chart
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exg2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exg2antt1.MouseMoveEvent
With Exg2antt1
Debug.Print( "First" )
Debug.Print( .Chart.FirstVisibleDate )
Debug.Print( "Last" )
Debug.Print( .Chart.get_DateFromPoint(1,-1) )
End With
End Sub
With Exg2antt1
.BeginUpdate()
With .Chart
.LevelCount = 2
.set_PaneWidth(False,1)
End With
.EndUpdate()
End With
|
|
1177
|
How can I filter programatically using more columns
With Exg2antt1
.BeginUpdate()
.Chart.set_PaneWidth(True,0)
.MarkSearchColumn = False
With .Columns
.Add("Car")
.Add("Equipment")
End With
With .Items
.set_CellValue(.AddItem("Mazda"),1,"Air Bag")
.set_CellValue(.AddItem("Toyota"),1,"Air Bag,Air condition")
.set_CellValue(.AddItem("Ford"),1,"Air condition")
.set_CellValue(.AddItem("Nissan"),1,"Air Bag,ABS,ESP")
.set_CellValue(.AddItem("Mazda"),1,"Air Bag, ABS,ESP")
.set_CellValue(.AddItem("Mazda"),1,"ABS,ESP")
End With
With .Columns.Item("Car")
.FilterType = exontrol.EXG2ANTTLib.FilterTypeEnum.exFilter
.Filter = "Mazda"
End With
With .Columns.Item("Equipment")
.FilterType = exontrol.EXG2ANTTLib.FilterTypeEnum.exPattern
.Filter = "*ABS*|*ESP*"
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
1176
|
Do you have scheduling functionality in Gantt (meaning scheduling several activities (bars) depending on their start and finish dates with considering dependencies to other activities
' BarResize event - Occurs when a bar is moved or resized.
Private Sub Exg2antt1_BarResize(ByVal sender As System.Object, ByVal Item As Integer, ByVal Key As Object) Handles Exg2antt1.BarResize
With Exg2antt1
.Items.SchedulePDM(Item,Key)
End With
End Sub
Dim h1,h2,h3,h4
With Exg2antt1
.BeginUpdate()
.Items.AllowCellValueToItemBar = True
.Columns.Add("Task")
.Columns.Add("Working").set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,258)
With .Chart
.Bars.Add("Task:Split").Shortcut = "Task"
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,96)
.AllowLinkBars = False
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exNoCreateBar
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"")
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",#1/2/2001#,#1/4/2001#,"")
.AddLink("L1",h1,"",h2,"")
h3 = .AddItem("Task 3")
.AddBar(h3,"Task",#1/2/2001#,#1/6/2001#,"")
.AddLink("L2",h2,"",h3,"")
.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"FF")
.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkStartPos,2)
.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkEndPos,2)
h4 = .AddItem("Task 4")
.AddBar(h4,"Task",#1/2/2001#,#1/4/2001#,"")
.AddLink("L3",h4,"",h3,"")
.set_ItemBar(0,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,True)
.SchedulePDM(.FirstVisibleItem,"")
End With
.EndUpdate()
End With
|
|
1175
|
How can I show the ticks for a single slider field
With Exg2antt1
.BeginUpdate()
.Columns.Add("Slider").Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SliderType
With .Items
.AddItem(10)
With .get_CellEditor(.AddItem(20),0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SliderType
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exSliderTickFrequency,10)
End With
.AddItem(30)
End With
.EndUpdate()
End With
|
|
1174
|
Is it possible to show ticks for slider fields
With Exg2antt1
With .Columns.Add("Slider").Editor
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SliderType
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exSliderTickFrequency,10)
End With
.Items.AddItem(10)
End With
|
|
1173
|
How can I group two bars so the distance between them is limited to a specified range
Dim h1,h2
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #9/20/2006#
.set_PaneWidth(False,48)
.LevelCount = 2
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#9/21/2006#,#9/24/2006#)
h2 = .AddItem("Task 2")
.AddBar(h2,"Unknown",#9/25/2006#,#9/28/2006#)
.AddLink("L1",h1,"",h2,"")
.GroupBars(h1,"",False,h2,"",True,31,"1;2")
Debug.Print( "The distance between A and B is limited between 1 and 3 days" )
Debug.Print( "The B is always after the A" )
End With
.EndUpdate()
End With
|
|
1172
|
How can I group two bars so the distance between them is flexible but never less than a specified value
Dim h1,h2
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #9/20/2006#
.set_PaneWidth(False,48)
.LevelCount = 2
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#9/21/2006#,#9/24/2006#)
h2 = .AddItem("Task 2")
.AddBar(h2,"Unknown",#9/26/2006#,#9/29/2006#)
.AddLink("L1",h1,"",h2,"")
.GroupBars(h1,"",False,h2,"",True,39,"2")
Debug.Print( "The distance between A and B is never less than 2 days" )
Debug.Print( "The B is always after the A" )
End With
.EndUpdate()
End With
|
|
1171
|
How can I group two bars so the distance between them is flexible
Dim h1,h2
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #9/20/2006#
.set_PaneWidth(False,48)
.LevelCount = 2
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#9/21/2006#,#9/24/2006#)
h2 = .AddItem("Task 2")
.AddBar(h2,"Unknown",#9/26/2006#,#9/29/2006#)
.AddLink("L1",h1,"",h2,"")
.GroupBars(h1,"",False,h2,"",True,39)
Debug.Print( "The distance between A and B is flexible, unlimited" )
Debug.Print( "The B is always after the A" )
End With
.EndUpdate()
End With
|
|
1170
|
How can I group two bars so the interval between them is fixed
Dim h,h2
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #9/20/2006#
.set_PaneWidth(False,48)
.LevelCount = 2
End With
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#9/21/2006#,#9/24/2006#,"T1","A")
.AddBar(h,"Unknown",#9/26/2006#,#9/29/2006#,"T2","B")
.AddLink("L",h,"T1",h,"T2")
.set_Link("L",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkGroupBars,27)
.set_Link("L",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkShowDir,False)
h2 = .AddItem("Task 2")
.AddBar(h2,"Unknown",#9/26/2006#,#9/29/2006#,"T2","B")
.AddLink("L2",h,"T1",h2,"T2")
.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkGroupBars,27)
.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkShowDir,False)
Debug.Print( "The distance between bars is constant" )
Debug.Print( "The B is always after the A" )
End With
.EndUpdate()
End With
|
|
1169
|
How can I group two bars when linking, so moving the first bar will makes the second to move accordingly
Dim h1,h2
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #9/20/2006#
.set_PaneWidth(False,48)
.LevelCount = 2
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#9/21/2006#,#9/24/2006#,"","A")
h2 = .AddItem("Task 2")
.AddBar(h2,"Unknown",#9/26/2006#,#9/29/2006#,"","B")
.AddLink("L1",h1,"",h2,"")
.set_Link("L1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkGroupBars,39)
Debug.Print( "The distance between A and B is flexible, unlimited" )
Debug.Print( "The B is always after the A" )
End With
.EndUpdate()
End With
|
|
1168
|
Is it possible to be notified when the user clicks an anchor element a hyperlink in the date-time zone
' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Exg2antt1_AnchorClick(ByVal sender As System.Object, ByVal AnchorID As String, ByVal Options As String) Handles Exg2antt1.AnchorClick
With Exg2antt1
Debug.Print( "Click: " )
Debug.Print( AnchorID )
End With
End Sub
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,48)
.MarkTimeZone("Z",#1/2/2001#,#1/5/2001#,15753471,";32;Caption <a1><b>1</b></a>;1;Caption <a2><b>2</b></a>;17;Caption <a3><b>3</b></a>")
End With
.EndUpdate()
End With
|
|
1167
|
Is it possible to be notified when the user clicks a date-time zone
' Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
Private Sub Exg2antt1_Click(ByVal sender As System.Object) Handles Exg2antt1.Click
With Exg2antt1
With .Chart
Debug.Print( "Click: " )
Debug.Print( .get_TimeZoneFromPoint(-1,-1) )
End With
End With
End Sub
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,48)
.MarkTimeZone("Z",#1/2/2001#,#1/5/2001#,16711680,";32;DATE-TIME<br> ZONE")
End With
.EndUpdate()
End With
|
|
1166
|
Is is possible to display multiple captions in the same date-time zone
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,48)
.MarkTimeZone("Z",#1/5/2001#,#1/8/2001#,12895487,";;Caption <b>1</b>;1;Caption <b>2</b>;17;Caption <b>3</b>")
End With
.EndUpdate()
End With
|
|
1165
|
Is is possible to align on the top the caption for the date-time zone
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,48)
.MarkTimeZone("Z",#1/5/2001#,#1/8/2001#,12895487,";;UpperCenter;1")
End With
.EndUpdate()
End With
|
|
1164
|
Is there any option to display a picture on the date-time zone
With Exg2antt1
.BeginUpdate()
.set_HTMLPicture("pic1","c:\exontrol\images\card.png")
With .Chart
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,48)
.MarkTimeZone("Z",#1/5/2001#,#1/8/2001#,12895487,";;<c><img>pic1</img><br><c>picture")
End With
.EndUpdate()
End With
|
|
1163
|
Is there any option to display a text or a HTML caption on the date-time zone
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,48)
.MarkTimeZone("Z1",#1/1/2001#,#1/4/2001#,12895487,";;zone <b>1</b>")
.MarkTimeZone("Z2",#1/5/2001#,#1/8/2001#,12895487,";;zone <b>2</b>")
End With
.EndUpdate()
End With
|
|
1162
|
How can I display the date-time zone using a semi-transparent EBN object
Dim h1,h2
With Exg2antt1
.BeginUpdate()
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,48)
.AllowLinkBars = False
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exNoCreateBar
.Bars.Item("Task").Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
.MarkTimeZone("Z1",#1/2/2001#,#1/3/2001#,16777056,";;Solid")
.MarkTimeZone("Z2",#1/7/2001#,#1/10/2001#,16777216,"50;;EBN")
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",#1/5/2001#,#1/8/2001#,"K2")
.AddLink("L1",h1,"K1",h2,"K2")
End With
.EndUpdate()
End With
|
|
1161
|
How can I display the date-time zone using an EBN or a skin instead a solid color
Dim h1,h2
With Exg2antt1
.BeginUpdate()
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,48)
.AllowLinkBars = False
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exNoCreateBar
.Bars.Item("Task").Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
.MarkTimeZone("Z1",#1/2/2001#,#1/3/2001#,16777056,";;Solid")
.MarkTimeZone("Z2",#1/5/2001#,#1/8/2001#,16777216,";;EBN")
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",#1/5/2001#,#1/8/2001#,"K2")
.AddLink("L1",h1,"K1",h2,"K2")
End With
.EndUpdate()
End With
|
|
1160
|
How can I display the date-time zone using a pattern instead a solid color
Dim h1,h2
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,48)
.AllowLinkBars = False
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exNoCreateBar
.Bars.Item("Task").Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
.MarkTimeZone("Z1",#1/2/2001#,#1/3/2001#,16777056,";;Solid")
.MarkTimeZone("Z2",#1/6/2001#,#1/7/2001#,16777056,";12;Pattern")
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",#1/5/2001#,#1/8/2001#,"K2")
.AddLink("L1",h1,"K1",h2,"K2")
End With
.EndUpdate()
End With
|
|
1159
|
How can I display the date-time zone using a transparent color
Dim h1,h2
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,48)
.AllowLinkBars = False
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exNoCreateBar
.Bars.Item("Task").Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
.MarkTimeZone("Z1",#1/2/2001#,#1/3/2001#,16777056,";;Opaque")
.MarkTimeZone("Z2",#1/6/2001#,#1/7/2001#,16777056,"50;;Semi-Transparent")
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",#1/5/2001#,#1/8/2001#,"K2")
.AddLink("L1",h1,"K1",h2,"K2")
End With
.EndUpdate()
End With
|
|
1158
|
The date time zone is shown behind the bars, is there any way to show it over
Dim h1,h2
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,48)
.AllowLinkBars = False
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exNoCreateBar
.Bars.Item("Task").Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
.MarkTimeZone("Z1",#1/2/2001#,#1/3/2001#,16777056)
.MarkTimeZone("Z2",#1/6/2001#,#1/7/2001#,16777056,"1")
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",#1/5/2001#,#1/8/2001#,"K2")
.AddLink("L1",h1,"K1",h2,"K2")
End With
.EndUpdate()
End With
|
|
1157
|
How can I get ifnromation about a date-time zone
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exg2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exg2antt1.MouseMoveEvent
With Exg2antt1
With .Chart
Debug.Print( .get_TimeZoneInfo(.get_TimeZoneFromPoint(-1,-1)) )
End With
End With
End Sub
With Exg2antt1
With .Chart
.set_PaneWidth(False,18)
.LevelCount = 2
.FirstVisibleDate = #1/1/2010#
.MarkTimeZone("Z1",#1/4/2010#,#1/8/2010#,16744544)
.MarkTimeZone("Z2",#1/12/2010#,#1/18/2010#,16761952)
End With
End With
|
|
1156
|
How can I determine the zone from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exg2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exg2antt1.MouseMoveEvent
With Exg2antt1
With .Chart
Debug.Print( .get_TimeZoneFromPoint(-1,-1) )
End With
End With
End Sub
With Exg2antt1
With .Chart
.set_PaneWidth(False,18)
.LevelCount = 2
.FirstVisibleDate = #1/1/2010#
.MarkTimeZone("Z1",#1/4/2010#,#1/8/2010#,16744544)
.MarkTimeZone("Z2",#1/12/2010#,#1/18/2010#,16761952)
End With
End With
|
|
1155
|
How can I highlight multiple date-time zones (ranges)
With Exg2antt1
With .Chart
.set_PaneWidth(False,18)
.LevelCount = 2
.FirstVisibleDate = #1/1/2010#
.MarkTimeZone("Z1",#1/4/2010#,#1/8/2010#,16744544)
.MarkTimeZone("Z2",#1/12/2010#,#1/18/2010#,16761952)
End With
End With
|
|
1154
|
How can I highlight a date-time range
With Exg2antt1
With .Chart
.set_PaneWidth(False,18)
.LevelCount = 2
.FirstVisibleDate = #1/1/2010#
.MarkTimeZone("Z1",#1/4/2010#,#1/8/2010#,16744544)
End With
End With
|
|
1153
|
How do I get the list of selected date
' ChartEndChanging event - Occurs after the chart has been changed.
Private Sub Exg2antt1_ChartEndChanging(ByVal sender As System.Object, ByVal Operation As exontrol.EXG2ANTTLib.BarOperationEnum) Handles Exg2antt1.ChartEndChanging
With Exg2antt1
Debug.Print( Operation )
Debug.Print( .Chart.SelectDates )
End With
End Sub
With Exg2antt1
With .Chart
.LevelCount = 2
.set_PaneWidth(False,0)
.MarkTodayColor = .BackColor
End With
End With
|
|
1152
|
Is there any function I can use to find the bars that intersect with the current bar
' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub Exg2antt1_BarResizing(ByVal sender As System.Object, ByVal Item As Integer, ByVal Key As Object) Handles Exg2antt1.BarResizing
With Exg2antt1
With .Items
Debug.Print( Key )
Debug.Print( "intesect with" )
Debug.Print( .get_ItemBar(Item,Key,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarIntersectWithAsString) )
End With
End With
End Sub
Dim h1
With Exg2antt1
.BeginUpdate()
.DefaultItemHeight = 22
.Columns.Add("Task")
.ScrollBySingleLine = True
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
With .Chart
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
.set_PaneWidth(False,48)
.FirstVisibleDate = #12/28/2000#
.LevelCount = 2
.Bars.Item("Task").OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsOffset
.ResizeUnitScale = exontrol.EXG2ANTTLib.UnitEnum.exHour
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
End With
With .Items
h1 = .AddItem("Default")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"A1","A1")
.AddBar(h1,"Task",#1/3/2001#,#1/5/2001#,"A2","A2")
.AddBar(h1,"Task",#1/4/2001#,#1/7/2001#,"A3","A3")
End With
.EndUpdate()
End With
|
|
1151
|
Is it possible to order the bars on top of other bars
Dim h1,h2
With Exg2antt1
.BeginUpdate()
.DefaultItemHeight = 22
.Columns.Add("Task")
.ScrollBySingleLine = True
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
With .Chart
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
.set_PaneWidth(False,48)
.FirstVisibleDate = #12/28/2000#
.LevelCount = 2
.Bars.Copy("Task","NTask").OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsOffset
End With
With .Items
h1 = .AddItem("Default")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"A1")
.AddBar(h1,"Task",#1/3/2001#,#1/5/2001#,"A2")
.AddBar(h1,"Task",#1/4/2001#,#1/7/2001#,"A3")
h2 = .AddItem("Overlaid")
.AddBar(h2,"NTask",#1/2/2001#,#1/4/2001#,"A1")
.AddBar(h2,"NTask",#1/3/2001#,#1/5/2001#,"A2")
.AddBar(h2,"NTask",#1/4/2001#,#1/7/2001#,"A3")
.GroupBars(h1,"A1",True,h2,"A1",True)
.GroupBars(h1,"A1",False,h2,"A1",False)
.GroupBars(h1,"A2",True,h2,"A2",True)
.GroupBars(h1,"A2",False,h2,"A2",False)
.GroupBars(h1,"A3",True,h2,"A3",True)
.GroupBars(h1,"A3",False,h2,"A3",False)
End With
.EndUpdate()
End With
|
|
1150
|
Is it possible to order the bars on top of other bars (have different colurs so that they can be seen)
Dim h1,h2
With Exg2antt1
.BeginUpdate()
.DefaultItemHeight = 22
.Columns.Add("Task")
.ScrollBySingleLine = True
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
With .Chart
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
.set_PaneWidth(False,48)
.FirstVisibleDate = #12/28/2000#
.LevelCount = 2
.Bars.Copy("Task","NTask").OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
End With
With .Items
h1 = .AddItem("Default")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"A1")
.AddBar(h1,"Task",#1/3/2001#,#1/5/2001#,"A2")
.AddBar(h1,"Task",#1/4/2001#,#1/7/2001#,"A3")
h2 = .AddItem("Overlaid")
.AddBar(h2,"NTask",#1/2/2001#,#1/4/2001#,"A1")
.AddBar(h2,"NTask",#1/3/2001#,#1/5/2001#,"A2")
.AddBar(h2,"NTask",#1/4/2001#,#1/7/2001#,"A3")
.GroupBars(h1,"A1",True,h2,"A1",True)
.GroupBars(h1,"A1",False,h2,"A1",False)
.GroupBars(h1,"A2",True,h2,"A2",True)
.GroupBars(h1,"A2",False,h2,"A2",False)
.GroupBars(h1,"A3",True,h2,"A3",True)
.GroupBars(h1,"A3",False,h2,"A3",False)
End With
.EndUpdate()
End With
|
|
1149
|
Is it possible to layer bars on top of other bars (have different colurs so that they can be seen)
Dim h1,h2
With Exg2antt1
.BeginUpdate()
.DefaultItemHeight = 22
.Columns.Add("Task")
With .Chart
.set_PaneWidth(False,48)
.FirstVisibleDate = #12/28/2000#
.LevelCount = 2
.Bars.Copy("Task","NTask").OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsOffset
End With
With .Items
h1 = .AddItem("Default")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"A1")
.AddBar(h1,"Task",#1/3/2001#,#1/5/2001#,"A2")
.AddBar(h1,"Task",#1/4/2001#,#1/7/2001#,"A3")
h2 = .AddItem("Overlaid")
.AddBar(h2,"NTask",#1/2/2001#,#1/4/2001#,"A1")
.AddBar(h2,"NTask",#1/3/2001#,#1/5/2001#,"A2")
.AddBar(h2,"NTask",#1/4/2001#,#1/7/2001#,"A3")
.GroupBars(h1,"A1",True,h2,"A1",True)
.GroupBars(h1,"A1",False,h2,"A1",False)
.GroupBars(h1,"A2",True,h2,"A2",True)
.GroupBars(h1,"A2",False,h2,"A2",False)
.GroupBars(h1,"A3",True,h2,"A3",True)
.GroupBars(h1,"A3",False,h2,"A3",False)
End With
.EndUpdate()
End With
|
|
1148
|
My skin(EBN) bars are not shown a different color in the overview. What can I do
Dim h
With Exg2antt1
.BeginUpdate()
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
With .Chart
.Bars.Item("Task").Color32 = &H1000000
.set_PaneWidth(False,48)
.OverviewVisible = exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.FirstVisibleDate = #1/11/2001#
.LevelCount = 2
End With
.Columns.Add("Column")
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,1)
.AddBar(h,"Task",#2/2/2001#,#2/4/2001#,2)
.set_ItemBar(h,2,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,16776960)
h = .AddItem("Task 2")
.AddBar(h,"Task",#2/2/2001#,#2/4/2001#,"")
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
End With
.EndUpdate()
End With
|
|
1147
|
How do I colour the lines in the overview section to match the bars they represent on the main chart
Dim h
With Exg2antt1
.BeginUpdate()
With .Chart
.set_PaneWidth(False,48)
.OverviewVisible = exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.FirstVisibleDate = #1/1/2001#
.LevelCount = 2
End With
.Columns.Add("Column")
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,1)
.AddBar(h,"Task",#2/2/2001#,#2/4/2001#,2)
h = .AddItem("Task 2")
.AddBar(h,"Task",#2/2/2001#,#2/4/2001#,"")
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
End With
.EndUpdate()
End With
|
|
1146
|
How do I catch the delete key (down) on a bar
' KeyDown event - Occurs when the user presses a key while an object has the focus.
Private Sub Exg2antt1_KeyDown(ByVal sender As System.Object, ByRef KeyCode As Short, ByVal Shift As Short) Handles Exg2antt1.KeyDown
With Exg2antt1
Debug.Print( KeyCode )
Debug.Print( Shift )
End With
End Sub
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #12/27/2000#
.LevelCount = 2
.set_PaneWidth(False,48)
With .Bars.Item("Task")
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBox
.Height = 13
End With
End With
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K1","This is a bit of text that is not clipped")
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K1","This is a bit of text that get's clipped")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,3)
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip,.get_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption))
End With
.EndUpdate()
End With
|
|
1145
|
Is it possible to colour a particular column, I mean the cell's foreground color
With Exg2antt1
.BeginUpdate()
With .ConditionalFormats.Add("1")
.ForeColor = Color.FromArgb(255,0,0)
.ApplyTo = &H1
End With
.MarkSearchColumn = False
With .Columns
.Add("Column 1")
.Add("Column 2")
End With
With .Items
.set_CellValue(.AddItem(0),1,1)
.set_CellValue(.AddItem(2),1,3)
.set_CellValue(.AddItem(4),1,5)
End With
.EndUpdate()
End With
|
|
1144
|
Is it possible to colour a particular column for specified values
With Exg2antt1
.BeginUpdate()
With .ConditionalFormats.Add("int(%1) in (3,4,5)")
.BackColor = Color.FromArgb(255,0,0)
.ApplyTo = &H1
End With
.MarkSearchColumn = False
With .Columns
.Add("Column 1")
.Add("Column 2")
End With
With .Items
.set_CellValue(.AddItem(0),1,1)
.set_CellValue(.AddItem(2),1,3)
.set_CellValue(.AddItem(4),1,5)
End With
.EndUpdate()
End With
|
|
1143
|
Is it possible to colour a particular column
With Exg2antt1
.BeginUpdate()
.MarkSearchColumn = False
With .Columns
.Add("Column 1")
.Add("Column 2").set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellBackColor,255)
End With
With .Items
.set_CellValue(.AddItem(0),1,1)
.set_CellValue(.AddItem(2),1,3)
.set_CellValue(.AddItem(4),1,5)
End With
.EndUpdate()
End With
|
|
1142
|
How do i get all the children items that are under a certain parent Item handle
Dim h,hChild
With Exg2antt1
.BeginUpdate()
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("P")
With .Items
h = .AddItem("Root")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.set_ExpandItem(h,True)
End With
With .Items
hChild = .get_ItemChild(.FirstVisibleItem)
Debug.Print( .get_CellValue(hChild,0) )
Debug.Print( .get_CellValue(.get_NextSiblingItem(hChild),0) )
End With
.EndUpdate()
End With
|
|
1141
|
How can I access the control's scroll bar so I can change its appearance
With Exg2antt1
.BeginUpdate()
.Chart.set_PaneWidth(False,0)
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exHSThumb,&H1000000)
.EndUpdate()
End With
|
|
1140
|
How can I show my bars using the parts of the current theme
With Exg2antt1
.BeginUpdate()
With .VisualAppearance
.Add(1,"XP:Button 1 1")
.Add(2,"XP:Button 1 2")
.Add(3,"XP:ScrollBar 3 1")
.Add(4,"XP:ScrollBar 3 2")
End With
With .Chart
.set_PaneWidth(False,48)
.FirstVisibleDate = #1/1/2001#
With .Bars
.Add("B1").Color32 = &H1000000
.Add("B2").Color32 = &H2000000
.Add("S1").Color32 = &H3000000
.Add("S2").Color32 = &H4000000
End With
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Button1"),"B1",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Button 2"),"B2",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Scrollbar 1"),"S1",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Scrollbar 2"),"S2",#1/2/2001#,#1/4/2001#)
End With
.EndUpdate()
End With
|
|
1139
|
How do I hide the text on a bar if the text is to big for the bar length
Dim h
With Exg2antt1
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #12/27/2000#
.LevelCount = 2
.set_PaneWidth(False,48)
With .Bars.Item("Task")
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBox
.Height = 13
End With
End With
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K1","This is a bit of text that is not clipped")
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K1","This is a bit of text that get's clipped")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,3)
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip,.get_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption))
End With
End With
|
|
1138
|
Is it possible to change the color for non-working parts of the bar
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.LevelCount = 2
.set_PaneWidth(False,48)
.FirstVisibleDate = #1/1/2001#
.Bars.Add("Task:Split").Shortcut = "Task"
.NonworkingDaysColor = Color.FromArgb(240,250,240)
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/16/2001#)
h = .AddItem("Task 2")
.AddBar(h,"Task",#1/2/2001#,#1/16/2001#,"")
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarNonWorkingColor,65280)
End With
.EndUpdate()
End With
|
|
1137
|
Is it possible to change the color for the percent bar being displayed inside a specified bar only
Dim h
With Exg2antt1
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.Bars.Add("Task%Progress")
.Chart.set_PaneWidth(False,48)
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task%Progress",#1/2/2001#,#1/6/2001#,"K1")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarPercent,0.4)
h = .AddItem("Task 2")
.AddBar(h,"Task%Progress",#1/2/2001#,#1/6/2001#,"K1")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarPercent,0.5)
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarPercentColor,255)
End With
End With
|
|
1136
|
How do I get a handle on the item before adding the bar
Dim h,h1,h2,h3
With Exg2antt1
.BeginUpdate()
.MarkSearchColumn = False
.OnResizeControl = exontrol.EXG2ANTTLib.OnResizeControlEnum.exResizeChart
.Columns.Add("Tasks")
.Columns.Add("Start").Visible = False
.Columns.Add("End").Visible = False
With .Chart
.FirstVisibleDate = #9/20/2006#
.set_PaneWidth(False,64)
.LevelCount = 2
End With
With .Items
h1 = .AddItem("Task 0")
.set_CellValue(h1,1,#9/21/2006#)
.set_CellValue(h1,2,#9/24/2006#)
.AddBar(h1,"Task",.get_CellValue(h1,1),.get_CellValue(h1,2))
h2 = .InsertItem(h,Nothing,"Task 1")
.set_CellValue(h2,1,#9/25/2006#)
.set_CellValue(h2,2,#9/28/2006#)
.AddBar(h2,"Task",.get_CellValue(h2,1),.get_CellValue(h2,2))
h3 = .InsertItem(h,Nothing,"Task 2")
.set_CellValue(h3,1,#9/29/2006#)
.set_CellValue(h3,2,#10/2/2006#)
.AddBar(h3,"Task",.get_CellValue(h3,1),.get_CellValue(h3,2))
.AddItem(.ItemCount)
End With
.EndUpdate()
End With
|
|
1135
|
Is there an Items method that I can use to loop around to compare the item's user data against
Dim h
With Exg2antt1
.Columns.Add("Default")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.set_ItemData(.InsertItem(h,Nothing,"Child 2"),1234)
.set_ExpandItem(h,True)
.set_ItemBold(.get_FindItemData(1234),True)
End With
End With
|
|
1134
|
How do I make the tooltip box wider to allow for longer text
Dim h
With Exg2antt1
.ToolTipWidth = 328
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,48)
End With
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip,"This is a bit of text that's displayed when the cursor hovers the bar")
End With
End With
|
|
1133
|
How do i set the default timeslots to say hours or minutes
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,48)
.OverviewVisible = exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.LevelCount = 2
.AllowOverviewZoom = exontrol.EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
.OverviewZoomUnit = 24
.OverviewZoomCaption = "Y|½Y|¼Y|Mo|T|W|D|H|Mi|S"
.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exMinute
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 2"),"Task",#1/16/2001#,#1/25/2001#)
.AddBar(.AddItem("Item 3"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 4"),"Task",#2/16/2001#,#2/25/2001#)
End With
.EndUpdate()
End With
|
|
1132
|
Can I use icons or images in the text in the overview zoom buttons (Sec., Min., Hour, Month...)
With Exg2antt1
.BeginUpdate()
.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,48)
.OverviewVisible = exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.LevelCount = 2
.AllowOverviewZoom = exontrol.EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
.OverviewZoomUnit = 24
.OverviewHeight = 58
.OverviewZoomCaption = "Y<br>e<br>a<br>r|½Y|¼Y|M<br>o<br>n<br>t<br>h|T|W<br>e<br>e<br>w|<img>pic1:28<img>|H<br>o<br>u<br>r|M<br>i<br>n|S<br>e<br>c"
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 2"),"Task",#1/16/2001#,#1/25/2001#)
.AddBar(.AddItem("Item 3"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 4"),"Task",#2/16/2001#,#2/25/2001#)
End With
.EndUpdate()
End With
|
|
1131
|
Can I use icons or images in the text in the overview zoom buttons (Sec., Min., Hour, Month...)
With Exg2antt1
.BeginUpdate()
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,48)
.OverviewVisible = exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.LevelCount = 2
.AllowOverviewZoom = exontrol.EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
.OverviewZoomUnit = 24
.OverviewZoomCaption = "Y|½Y|¼Y|<img>2<img>|T|W|<img>1<img>|H|M|S"
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 2"),"Task",#1/16/2001#,#1/25/2001#)
.AddBar(.AddItem("Item 3"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 4"),"Task",#2/16/2001#,#2/25/2001#)
End With
.EndUpdate()
End With
|
|
1130
|
How do I change (for localisation) the text in the buttons like (Sec., Min., Hour, Month...)
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,48)
.OverviewVisible = exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.LevelCount = 2
.AllowOverviewZoom = exontrol.EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
.OverviewZoomUnit = 24
.OverviewZoomCaption = "Y|½Y|¼Y|Mo|T|W|D|H|Mi|S"
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 2"),"Task",#1/16/2001#,#1/25/2001#)
.AddBar(.AddItem("Item 3"),"Task",#1/2/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 4"),"Task",#2/16/2001#,#2/25/2001#)
End With
.EndUpdate()
End With
|
|
1129
|
How I can change the Months and Weekdays
With Exg2antt1
.BeginUpdate()
With .Chart
.set_PaneWidth(False,0)
.FirstVisibleDate = #2/1/2010#
.LevelCount = 2
.UnitWidth = 10
.MonthNames = "1 2 3 4 5 6 7 8 9 10 11 12"
.WeekDays = "A B C D E F G"
With .get_Level(0)
.Label = "<%mmmm%>"
.Unit = exontrol.EXG2ANTTLib.UnitEnum.exMonth
End With
With .get_Level(1)
.Label = "<font ;6><%ddd%>"
.Unit = exontrol.EXG2ANTTLib.UnitEnum.exDay
End With
End With
.EndUpdate()
End With
|
|
1128
|
How do i get the current window time frame (the start and end) of the gantt chart
' DateChange event - Occurs when the first visible date is changed.
Private Sub Exg2antt1_DateChange(ByVal sender As System.Object) Handles Exg2antt1.DateChange
With Exg2antt1
With .Chart
Debug.Print( "Start" )
Debug.Print( .FirstVisibleDate )
Debug.Print( "" )
Debug.Print( "End" )
Debug.Print( .get_DateFromPoint(.get_PaneWidth(True),0) )
End With
End With
End Sub
With Exg2antt1
.BeginUpdate()
With .Chart
.set_PaneWidth(False,1)
.LevelCount = 2
.ScrollTo(#1/1/2010#,0)
End With
.EndUpdate()
End With
|
|
1127
|
When I use this Chart.get_DateFromPoint(exg2antt1.Width, 0) I get date as 0, 30/12/1899, or 12:00:00 AM. What that means
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exg2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exg2antt1.MouseMoveEvent
With Exg2antt1
Debug.Print( .Chart.get_DateFromPoint(-1,-1) )
End With
End Sub
With Exg2antt1
With .Chart
.set_PaneWidth(False,48)
.LevelCount = 2
End With
End With
|
|
1126
|
How do I enable grabing bars to other items/rows (and only enable them to be dropped on certain rows)
' BarParentChange event - Occurs just before moving a bar from current item to another item.
Private Sub Exg2antt1_BarParentChange(ByVal sender As System.Object, ByVal Item As Integer, ByVal Key As Object, ByVal NewItem As Integer, ByRef Cancel As Boolean) Handles Exg2antt1.BarParentChange
With Exg2antt1
Debug.Print( .Items.get_CellCaption(NewItem,0) )
Cancel = .Items.get_ItemData(NewItem)
End With
End Sub
Dim h
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,48)
.AllowLinkBars = False
.Bars.Item("Task").OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsOffset
End With
.Columns.Add("Column")
With .Items
h = .AddItem("Item 1")
.set_EnableItem(h,False)
.set_ItemData(h,-1)
h = .AddItem("Item 2")
.set_ItemData(h,0)
.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"B")
.set_ItemBar(h,"B",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother,True)
.set_ItemData(.AddItem("Item 3"),0)
h = .AddItem("Item 4")
.set_EnableItem(h,False)
.set_ItemData(h,-1)
End With
.EndUpdate()
End With
|
|
1125
|
How can I find out if a date time is a non-working part
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exg2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exg2antt1.MouseMoveEvent
Dim c,d,h,hit
With Exg2antt1
h = .get_ItemFromPoint(-1,-1,c,hit)
d = .Chart.get_DateFromPoint(-1,-1)
Debug.Print( d )
Debug.Print( .Chart.get_IsNonworkingDate(d,h) )
End With
End Sub
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("NonWorking")
With .Chart
.FirstWeekDay = exontrol.EXG2ANTTLib.WeekDayEnum.exMonday
.FirstVisibleDate = #1/24/2008#
.set_PaneWidth(False,64)
.LevelCount = 2
End With
With .Items
h = .AddItem("Default")
h = .AddItem("January")
.set_ItemNonworkingUnits(h,False,"month(value) = 1")
h = .AddItem("February, Saturday, Sunday")
.set_ItemNonworkingUnits(h,False,"month(value) = 2 or (weekday(value) = 0 or weekday(value) = 6)")
h = .AddItem("Sunday")
.set_ItemNonworkingUnits(h,False,"weekday(value) = 0")
End With
.EndUpdate()
End With
|
|
1124
|
I am using the ItemBar property exBarCanMoveToAnother, How do I stop it from being dropped on certain chart rows
' BarParentChange event - Occurs just before moving a bar from current item to another item.
Private Sub Exg2antt1_BarParentChange(ByVal sender As System.Object, ByVal Item As Integer, ByVal Key As Object, ByVal NewItem As Integer, ByRef Cancel As Boolean) Handles Exg2antt1.BarParentChange
With Exg2antt1
Debug.Print( .Items.get_CellCaption(NewItem,0) )
Cancel = .Items.get_ItemData(NewItem)
End With
End Sub
Dim h
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,48)
.AllowLinkBars = False
.Bars.Item("Task").OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsOffset
End With
.Columns.Add("Column")
With .Items
h = .AddItem("Item 1")
.set_EnableItem(h,False)
.set_ItemData(h,-1)
h = .AddItem("Item 2")
.set_ItemData(h,0)
.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"B")
.set_ItemBar(h,"B",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother,True)
.set_ItemData(.AddItem("Item 3"),0)
.set_ItemData(.AddItem("Item 4"),0)
End With
.EndUpdate()
End With
|
|
1123
|
What is the event I should use to capture the click event on the task item on left hand side
' Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
Private Sub Exg2antt1_Click(ByVal sender As System.Object) Handles Exg2antt1.Click
Dim c,h,hit
With Exg2antt1
h = .get_ItemFromPoint(-1,-1,c,hit)
Debug.Print( .Items.get_CellCaption(h,c) )
End With
End Sub
Dim h
With Exg2antt1
.BeginUpdate()
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Items")
With .Items
h = .AddItem("R1")
.InsertItem(h,Nothing,"Cell 1.1")
.InsertItem(h,Nothing,"Cell 1.2")
.set_ExpandItem(h,True)
h = .AddItem("R2")
.InsertItem(h,Nothing,"Cell 2.1")
.InsertItem(h,Nothing,"Cell 2.2")
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
1122
|
Can I add a hyperlink assigned to a bar
' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Exg2antt1_AnchorClick(ByVal sender As System.Object, ByVal AnchorID As String, ByVal Options As String) Handles Exg2antt1.AnchorClick
With Exg2antt1
Debug.Print( AnchorID )
End With
End Sub
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,48)
End With
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K")
.set_ItemBar(h,"K",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"default")
.set_ItemBar(h,"K",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
h = .AddItem("Task 2")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K")
.set_ItemBar(h,"K",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"<a1><b>A 1</b></a>")
.set_ItemBar(h,"K",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
h = .AddItem("Task 3")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K")
.set_ItemBar(h,"K",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"<a2><b>A 2</b></a>")
.set_ItemBar(h,"K",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
End With
.EndUpdate()
End With
|
|
1121
|
Can I change the background color only for the text (caption) in a bar
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,48)
End With
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K")
.set_ItemBar(h,"K",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"default")
.set_ItemBar(h,"K",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
h = .AddItem("Task 2")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K")
.set_ItemBar(h,"K",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"using <bgcolor=FF0000>bgcolor</bgcolor> HTML attribute ")
.set_ItemBar(h,"K",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
End With
.EndUpdate()
End With
|
|
1120
|
Can I change the font to display the text (caption) in a bar
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,48)
End With
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K")
.set_ItemBar(h,"K",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"default")
.set_ItemBar(h,"K",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
h = .AddItem("Task 2")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K")
.set_ItemBar(h,"K",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"<font Segoe UI;8 >using font HTML attribute </fgcolor>")
.set_ItemBar(h,"K",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
End With
.EndUpdate()
End With
|
|
1119
|
How do i change the forecolor of text (caption) in a bar
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,48)
End With
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K")
.set_ItemBar(h,"K",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"default")
.set_ItemBar(h,"K",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
h = .AddItem("Task 2")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K")
.set_ItemBar(h,"K",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"<fgcolor=FF0000>using fgcolor HTML attribute </fgcolor>")
.set_ItemBar(h,"K",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
h = .AddItem("Task 3")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K")
.set_ItemBar(h,"K",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"using exBarForeColor")
.set_ItemBar(h,"K",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
.set_ItemBar(h,"K",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarForeColor,65280)
End With
.EndUpdate()
End With
|
|
1118
|
I have noticed that when scrolling horizontally the chart a tooltip shown. is it possible to actually do the scrolling without showing the tooltip
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #6/20/2005#
.AllowLinkBars = True
.LevelCount = 2
.set_PaneWidth(False,48)
.ToolTip = ""
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#6/21/2005#,#6/25/2005#,"A")
.AddBar(.AddItem("Task 2"),"Task",#6/28/2005#,#7/2/2005#,"B")
End With
.EndUpdate()
End With
|
|
1117
|
How can I add a bar to be treated as a nonworking part like a "holidays" bar
Dim h
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2001#
.LevelCount = 2
.set_PaneWidth(False,48)
.AllowNonworkingBars = True
.Bars.Add("Task:Split").Shortcut = "Task"
End With
.Columns.Add("Tasks")
With .Items
h = .AddItem("Task 1")
.set_ItemNonworkingUnits(h,False,"weekday(value) in (0,6)")
.AddBar(h,"",#1/2/2001#,#1/5/2001#,"A","holyday")
.set_ItemBar(h,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarTreatAsNonworking,True)
.AddBar(h,"Task",#1/5/2001#,#1/12/2001#,"Z")
.set_ItemBar(h,"Z",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,True)
End With
.EndUpdate()
End With
|
|
1116
|
Is it possible to add bars that act like a non-working fixed part or the item
Dim h
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2001#
.LevelCount = 2
.set_PaneWidth(False,48)
.AllowNonworkingBars = True
End With
.Columns.Add("Tasks")
With .Items
h = .AddItem("Task 1")
.set_ItemNonworkingUnits(h,False,"weekday(value) in (0,6)")
.AddBar(h,"",#1/3/2001#,#1/6/2001#,"h","holyday")
.set_ItemBar(h,"h",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarTreatAsNonworking,True)
.set_ItemBar(h,"h",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelectable,False)
End With
.EndUpdate()
End With
|
|
1115
|
Is it possible to add bars that act like a non-working part or the item
Dim h
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2001#
.LevelCount = 2
.set_PaneWidth(False,48)
.AllowNonworkingBars = True
End With
.Columns.Add("Tasks")
With .Items
h = .AddItem("Task 1")
.set_ItemNonworkingUnits(h,False,"weekday(value) in (0,6)")
.AddBar(h,"",#1/3/2001#,#1/6/2001#,"h","holyday")
.set_ItemBar(h,"h",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarTreatAsNonworking,True)
End With
.EndUpdate()
End With
|
|
1114
|
How can I change the both dates for the bar at once
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.set_PaneWidth(False,64)
.FirstVisibleDate = #6/21/2005#
.ShowEmptyBars = 1
End With
With .Items
h = .AddItem("Test")
.AddBar(h,"Task",#6/22/2005#,#6/26/2005#,"")
.AddBar(h,"Task",#6/27/2005#,#6/29/2005#)
End With
.EndUpdate()
End With
|
|
1113
|
How can I get the selected bars in the chart
' ChartSelectionChanged event - Occurs when the user selects objects in the chart area.
Private Sub Exg2antt1_ChartSelectionChanged(ByVal sender As System.Object) Handles Exg2antt1.ChartSelectionChanged
With Exg2antt1
Debug.Print( .Items.get_SelectedObjects(exontrol.EXG2ANTTLib.SelectObjectsEnum.exSelectBarsOnly) )
End With
End Sub
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #6/20/2005#
.AllowLinkBars = True
.LevelCount = 2
.set_PaneWidth(False,48)
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#6/21/2005#,#6/25/2005#,"A")
.AddBar(.AddItem("Task 2"),"Task",#6/28/2005#,#7/2/2005#,"B")
.set_ItemBar(.FirstVisibleItem,.get_FirstItemBar(.FirstVisibleItem),exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
End With
.EndUpdate()
End With
|
|
1112
|
How can I list the actions that can be performed by undo operations
' ChartEndChanging event - Occurs after the chart has been changed.
Private Sub Exg2antt1_ChartEndChanging(ByVal sender As System.Object, ByVal Operation As exontrol.EXG2ANTTLib.BarOperationEnum) Handles Exg2antt1.ChartEndChanging
With Exg2antt1
Debug.Print( .Chart.get_UndoListAction() )
End With
End Sub
Dim h
With Exg2antt1
.BeginUpdate()
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.AllowLinkBars = False
.Chart.Bars.Item("Task").OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsOffset
.Chart.AllowUndoRedo = True
.Chart.set_PaneWidth(False,32)
.Chart.Bars.Add("Task:Split").Shortcut = "Task"
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,"A")
h = .AddItem("Item 2")
.AddBar(h,"Task",#1/5/2001#,#1/9/2001#,"B")
.set_ItemBar(h,"B",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother,True)
.set_ItemBar(h,"B",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,True)
.set_ItemNonworkingUnits(.AddItem("Item 3"),False,"weekday(value)=0")
.set_ItemNonworkingUnits(.AddItem("Item 4"),False,"weekday(value) in (3,5)")
End With
.EndUpdate()
End With
|
|
1111
|
How can I change the predefined labels being displayed in the chart's header so it shows the data in short format with no literals
With Exg2antt1
.BeginUpdate()
With .Chart
.set_PaneWidth(False,0)
.AllowOverviewZoom = exontrol.EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
.OverviewVisible = exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.LevelCount = 3
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exYear,"<%yy%><|><%yyyy%>")
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exHalfYear,"")
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exQuarterYear,"")
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exMonth,"<|><%m%><|><%m%>/<%yy%><|><%m%>/<%yyyy%>")
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exThirdMonth,"")
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exWeek,"<|><%ww%><|><%m%>/<%d%>/<%yy%><r><%ww%><|><%m%>/<%d%>/<%yyyy%><r><%ww%><||><||>256")
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exDay,"<|><%d%><|><%m%>/<%d%>/<%yy%><|><%m%>/<%d%>/<%yyyy%><||><||>4096")
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exHour,"<|><%hh%><|><%m%>/<%d%>/<%yy%> <%h%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%><||><||>65536")
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exMinute,"<|><%nn%><|><%h%>:<%nn% <%AM/PM%>><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%> <%AM/PM%>")
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exSecond,"<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%m%>/<%d%>/<%yy" & _
"yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exYear,"<%yyyy%>")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exHalfYear,"")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exQuarterYear,"")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exMonth,"<%m%>/<%yyyy%>")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exThirdMonth,"")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exWeek,"<%m%>/<%d%>/<%yyyy%> <%ww%>")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exDay,"<%m%>/<%d%>/<%yyyy%>")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exHour,"<%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%>")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exMinute,"<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%> <%AM/PM%>")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exSecond,"<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>")
.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exDay
End With
.EndUpdate()
End With
|
|
1110
|
The histogram does not show (correctly) the bars, even if I changed the Bar.HistogramPattern and Bar.HistogramColor properties. What can be wrong
With Exg2antt1
.BeginUpdate()
With .Chart
.set_PaneWidth(False,48)
.FirstVisibleDate = #12/27/2000#
.HistogramVisible = True
.HistogramHeight = 32
With .Bars.Item("Task")
.HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.HistogramColor = Color.FromArgb(255,0,0)
End With
.ResizeUnitScale = exontrol.EXG2ANTTLib.UnitEnum.exHour
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Task 1"),"Task",#1/2/2001 8:00:00 AM#,#1/2/2001 0:00:00 PM#)
.AddBar(.AddItem("Task 2"),"Task",#1/1/2001 8:00:00 AM#,#1/5/2001 0:00:00 PM#)
End With
.EndUpdate()
End With
|
|
1109
|
How can I change the default key for the newly added link from "Link1" to my identifier
' AddLink event - Occurs when the user links two bars using the mouse.
Private Sub Exg2antt1_AddLink(ByVal sender As System.Object, ByVal LinkKey As String) Handles Exg2antt1.AddLink
With Exg2antt1
With .Items
.AddLink("newIDlink",.get_Link(LinkKey,exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkStartItem),.get_Link(LinkKey,exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkStartBar),.get_Link(LinkKey,exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkEndItem),.get_Link(LinkKey,exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkEndBar))
.RemoveLink(LinkKey)
End With
End With
End Sub
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exg2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exg2antt1.MouseMoveEvent
With Exg2antt1
Debug.Print( .Chart.get_LinkFromPoint(-1,-1) )
End With
End Sub
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #6/20/2005#
.AllowLinkBars = True
.LevelCount = 2
.set_PaneWidth(False,48)
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#6/21/2005#,#6/25/2005#,"")
.AddBar(.AddItem("Task 2"),"Task",#6/28/2005#,#7/2/2005#,"")
End With
.EndUpdate()
End With
|
|
1108
|
How can I change the default key for the newly added link from "Link1" to my identifier
' AllowLink event - Notifies at runtime when a link between two bars is possible.
Private Sub Exg2antt1_AllowLink(ByVal sender As System.Object, ByVal StartItem As Integer, ByVal StartBarKey As Object, ByVal EndItem As Integer, ByVal EndBarKey As Object, ByRef LinkKey As Object, ByRef Cancel As Boolean) Handles Exg2antt1.AllowLink
With Exg2antt1
LinkKey = "newIDlink"
End With
End Sub
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exg2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exg2antt1.MouseMoveEvent
With Exg2antt1
Debug.Print( .Chart.get_LinkFromPoint(-1,-1) )
End With
End Sub
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #6/20/2005#
.AllowLinkBars = True
.LevelCount = 2
.set_PaneWidth(False,48)
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#6/21/2005#,#6/25/2005#,"")
.AddBar(.AddItem("Task 2"),"Task",#6/28/2005#,#7/2/2005#,"")
End With
.EndUpdate()
End With
|
|
1107
|
We want to have a Task ID column as the first column that shows the row number. How can we do that
' FormatColumn event - Fired when a cell requires to format its caption.
Private Sub Exg2antt1_FormatColumn(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef Value As Object) Handles Exg2antt1.FormatColumn
With Exg2antt1
Value = .Items.get_ItemPosition(Item)
End With
End Sub
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Columns.Add("Pos")
.Width = 24
.AllowSizing = False
.Position = 0
.FireFormatColumn = True
End With
With .Items
.AddItem("Task A")
.AddItem("Task B")
.AddItem("Task C")
.AddItem("Task D")
End With
.EndUpdate()
End With
|
|
1106
|
How can I get the caption of focused item
' SelectionChanged event - Fired after a new item has been selected.
Private Sub Exg2antt1_SelectionChanged(ByVal sender As System.Object) Handles Exg2antt1.SelectionChanged
With Exg2antt1
With .Items
Debug.Print( "Handle" )
Debug.Print( .FocusItem )
Debug.Print( "Caption" )
Debug.Print( .get_CellCaption(.FocusItem,0) )
End With
End With
End Sub
Dim h
With Exg2antt1
.BeginUpdate()
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Items")
With .Items
h = .AddItem("R1")
.InsertItem(h,Nothing,"Cell 1.1")
.InsertItem(h,Nothing,"Cell 1.2")
.set_ExpandItem(h,True)
h = .AddItem("R2")
.InsertItem(h,Nothing,"Cell 2.1")
.InsertItem(h,Nothing,"Cell 2.2")
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
1105
|
How can I get the caption of selected item
' SelectionChanged event - Fired after a new item has been selected.
Private Sub Exg2antt1_SelectionChanged(ByVal sender As System.Object) Handles Exg2antt1.SelectionChanged
With Exg2antt1
With .Items
Debug.Print( "Handle" )
Debug.Print( .get_SelectedItem(0) )
Debug.Print( "Caption" )
Debug.Print( .get_CellCaption(.get_SelectedItem(0),0) )
End With
End With
End Sub
Dim h
With Exg2antt1
.BeginUpdate()
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Items")
With .Items
h = .AddItem("R1")
.InsertItem(h,Nothing,"Cell 1.1")
.InsertItem(h,Nothing,"Cell 1.2")
.set_ExpandItem(h,True)
h = .AddItem("R2")
.InsertItem(h,Nothing,"Cell 2.1")
.InsertItem(h,Nothing,"Cell 2.2")
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
1104
|
How can I get the link from the point
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exg2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exg2antt1.MouseMoveEvent
With Exg2antt1
Debug.Print( .Chart.get_LinkFromPoint(-1,-1) )
End With
End Sub
Dim h1,h2,h3
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #12/29/2000#
.set_PaneWidth(False,64)
.LevelCount = 2
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",#1/5/2001#,#1/7/2001#,"K2")
.AddLink("L1",h1,"K1",h2,"K2")
.set_Link("L1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"L1")
h3 = .AddItem("Task 3")
.AddBar(h3,"Task",#1/8/2001#,#1/10/2001#,"K3")
.AddLink("L2",h2,"K2",h3,"K3")
.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"L2")
End With
.EndUpdate()
End With
|
|
1103
|
How can I get the bar from the point
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exg2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exg2antt1.MouseMoveEvent
With Exg2antt1
Debug.Print( .Chart.get_BarFromPoint(-1,-1) )
End With
End Sub
Dim h1,h2,h3
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #12/29/2000#
.set_PaneWidth(False,64)
.LevelCount = 2
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",#1/4/2001#,#1/6/2001#,"K2")
.AddLink("L1",h1,"K1",h2,"K2")
h3 = .AddItem("Task 3")
.AddBar(h3,"Task",#1/8/2001#,#1/10/2001#,"K3")
.AddLink("L2",h2,"K2",h3,"K3")
End With
.EndUpdate()
End With
|
|
1102
|
How can I get the level from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exg2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exg2antt1.MouseMoveEvent
With Exg2antt1
Debug.Print( .Chart.get_LevelFromPoint(-1,-1) )
End With
End Sub
With Exg2antt1
With .Chart
.FirstVisibleDate = #6/25/2010#
.set_PaneWidth(False,0)
.LevelCount = 4
End With
End With
|
|
1101
|
How can I get the date from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exg2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exg2antt1.MouseMoveEvent
With Exg2antt1
Debug.Print( .Chart.get_DateFromPoint(-1,-1) )
End With
End Sub
With Exg2antt1
With .Chart
.set_PaneWidth(False,0)
.LevelCount = 2
End With
End With
|